﻿'Class MainWindow

'End Class


Class MainWindow
    Private Sub textbox1_PreviewDrop(sender As Object, e As DragEventArgs) Handles textbox1.PreviewDrop

    End Sub

    Private Sub textbox1_PreviewDragOver(sender As Object, e As DragEventArgs) Handles textbox1.PreviewDragOver
        e.Effects = DragDropEffects.Copy
        e.Handled = True
    End Sub
End Class
